Agent trying to FTP docs from Notes Server to AS400

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject: Agent trying to FTP docs from Notes Server to AS400

Feedback Type: Problem

Product Area: Domino Designer on Eclipse (DDE)

Technical Area: Application Development

Platform: Windows

Release: 8.5

Reproducible: -Reproducibility-

I have written the following code to take attachments that are coming in on emails and move them to the C:\Mail file on the server and then FTP them to our AS400. When I run the agent manually from my PC, it will detach the file to the drive but it does not handle the FTP. Also, When I run the agent from the server, it will not even put the attachment over to the Domino server. Has anyone ever tried to do anything of this sort? Below is the code:

Set db = s.Currentdatabase
Set dc = db.Unprocesseddocuments
Set doc = dc.Getfirstdocument()
Set rtitem = doc.GetFirstItem ("Body")
If (rtitem.Type = RICHTEXT) Then
ForAll obj In rtitem.EmbeddedObjects
If (obj.type=EMBED_ATTACHMENT) Then
attachname = obj.source
MsgBox "Now detaching file"
Print "Now Detaching file"

filename = "C:\Mail\" + attachname Call obj.ExtractFile (filename)

'Print "now starting FTP Session"

Dim objFTP As NotesFTPSession

Set objFTP=New NotesFTPSession

With objFTP
.Connect "develop1.utlx.com", "ch083002", "dynaglide1", 0
.PutFile filename, "Notes Emails\RepairsIn\" + attachname, FTP_TRANSFER_TYPE_BINARY
.Disconnect
End With

Call doc.save (False, True)

End If
End ForAll
End If

I found a notesFTP library in the Sandbox that handles the connection to FTP.

Feedback number WEBB8GBLGR created by ~Lex Frojipyterobu on 04/27/2011

Status: Open
Comments:

Return to top

Printer-friendly

Search this forum

Member Tools

RSS Feeds

RSS feeds

	All forum posts RSS
	All main topics RSS